Este código borrra un registro en una Tabla de Microsoft Access

Dim MIBD As Database  ' se define el objeto base de datos

Dim miRS1 As Recordset ' se define el objeto recordset conjunto de registros

Set MIBD = DBEngine.Workspaces(0).Databases(0) ' se instancia el espacio de trabajo
Set miRS1 = MIBD.OpenRecordset("mitabla", DB_OPEN_TABLE) ' se instancia el recordset

miRS1.MoveFirst

Do Until miRS1.EOF

if miRS1![precio] = 5000    then

miRS1.Delete   ' metodo de borrado en el recordset

end if 

miRS1.MoveNext

loop

miRS1.Close

MIBD.Close